sync on : sync rate 60 :hide mouse:cls 0
autocam off
ObjectNumber=1
SecondObject=2
make object cone ObjectNumber,10
xrotate object ObjectNumber,90
fix object pivot ObjectNumber
color object ObjectNumber,rgb(0,255,0)
position object ObjectNumber, 0,0,0
SHOW OBJECT BOUNDS ObjectNumber
clone object SecondObject,ObjectNumber
color object SecondObject,rgb(255,0,0)
position object SecondObject,25,0,25
while mouseclick()=0
position camera object position x(SecondObject),object position y(SecondObject),object position z(SecondObject)+20
point camera object position x(SecondObject),object position y(SecondObject),object position z(SecondObject)
sync
endwhile
HIDE OBJECT BOUNDS ObjectNumber
delete object ObjectNumber
delete object SecondObject
end